home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / SOLAR / Vector Generators / Solar Systems / gen-solar < prev   
Text File  |  1998-10-23  |  2KB  |  40 lines
  1. gen-solar name attribute view-location planet &rest planets
  2.  
  3. This generates a vector of values relative to view-location of an attribute in solar system name. The following example clarifies this:
  4.  
  5. (gen-solar sun cycles earth
  6.    mercurius venus earth mars jupiter saturnus uranus neptunus pluto)
  7. --> #(4.152569349704412 1.6256898700373865 1.0 0.531712642841546 
  8. 0.08430281571404485 0.03394894079304726 0.011894849530153443 
  9. 0.006067592985862508 0.004023659115599726)
  10.  
  11. The output vector contains the year length relative to earth in our solar system, that is, earth will get a value 1.0. Mercurius year is 4.15... times more, venus 1.62.. etc.
  12.  
  13. The output suits directly inside frequency-map, and within activate-tonality a corresponding tonality is returned.
  14.  
  15. (activate-tonality 
  16.     (frequency-map
  17.        (gen-solar sun cycles pluto
  18.           mercurius venus earth mars jupiter saturnus uranus neptunus pluto) 
  19.        1 '(c 1)))
  20. --> ((c 11 g# 9 b 8 c# 8 f 5 c# 4 g 2 g 1 c 1))
  21.  
  22. The following demonstrates how the note-list returned by frequency-map can drive gen-sin-chord to produce waveforms.
  23.  
  24. (gen-sin-chord 
  25.     (frequency-map
  26.        (gen-solar sun cycles mars
  27.           mercurius venus earth mars) 
  28.        1 '(c 1)) 64)
  29.  
  30. Above each frequency is quantized to 12-tone system and an equivalent amplitude is used when mixin the waves. More accurate results can be achieved with gen-fourier, which allows to mix sin waves of certain frequencies, amplitudes, and phase values - each of which can be produced by gen-solar. In the following the relative gravitational fluctuations in a year in Jupiter is generated:
  31.  
  32. (gen-fourier 
  33.    (gen-solar sun cycles jupiter
  34.          mercurius venus earth mars jupiter saturnus uranus neptunus) 
  35.    (reverse 
  36.       (gen-solar sun location jupiter
  37.          mercurius venus earth mars jupiter saturnus uranus neptunus))
  38.    '(0 0 0 0 0 0 0 0 0)
  39.    512)
  40.